


Namespace Cliente
Public Class Cliente

        Public Function Listar(ByVal ClienteId As Integer, ByVal vDocumento As String) As Entity.Cliente.Cliente

            Dim objEnt As New Entity.Cliente.Cliente
            Dim obj As New Data.Cliente.Cliente
            Return obj.Listar(ClienteId, vDocumento)

        End Function




'***************************



public Function Listar( _
		ClienteId as Integer, _
		Nombre as String, _
		DocumentoTipoId as Integer, _
		DocumentoNro as String, _
		Direccion as String) _
as  Entity.Cliente.ClienteCol

dim objCol as  New entity.Cliente.ClienteCol
dim obj as  New Data.Cliente.Cliente
return obj.listar(" ", _
		ClienteId, _
		Nombre, _
		DocumentoTipoId, _
		DocumentoNro, _
		Direccion)

End Function

End Class



end namespace

